Attribute VB_Name = "typemodule"
Type mydata
    tin As String
    tp As Long
End Type

Type mysheet
    sname As String
    sh As Long
    se As Long
    sdata As String
End Type
